• Home
 · 
• Internet/HTML
 · 
• Send E Mails From Ur Machine Using GMail { Google } Server.

Send E Mails From Ur Machine Using GMail { Google } Server.

Send E Mails From Ur Machine Using GMail { Google } Server.

API Declarations



Imports System.Net
Imports System.Net.Mail
Imports System.Configuration
Imports System.Text.RegularExpressions

#Region "Send Mails Using GMail Server"
REM Author :- Gehan Fernando
REM Date :- 09th August 2007
REM Description :-
#End Region



Rate Send E Mails From Ur Machine Using GMail { Google } Server.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Private _MMsg As Net.Mail.MailMessage
    Private _EServer As Net.Mail.SmtpClient
    Private _Cred As NetworkCredential

    Private _tmail As String = ""
    Private _cmail As String = ""
    Private _sub As String = ""
    Private _msg As String = ""

    Private _img As Image = Image.FromFile(Application.StartupPath + "\Ms.jpg")
    Private _i As Int16 = 0


    Private Sub ButtonSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSend.Click

        Try

            TimerImage.Enabled = True
            Call TimerImage_Tick(sender, e)
            Application.DoEvents() : Me.Refresh()

            If TextBoxTo.Text.ToString().Trim().Length = 0 Then ' Check To Mail ID Validation
                MessageBox.Show("E-Mail Cannot Be Empty", "Mail Sender", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                TimerImage.Enabled = False : _i = 0
                TextBoxTo.Focus()
                Exit Sub
            Else
                If IsValidEMailAddress(TextBoxTo.Text.ToString()) = True Then
                    _tmail = TextBoxTo.Text.ToString()
                Else
                    MessageBox.Show("Not Valid E-Mail", "Mail Sender", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    TimerImage.Enabled = False : _i = 0
                    TextBoxTo.Focus()
                    Exit Sub
                End If
            End If

            _sub = TextBoxSubject.Text.ToString().Trim()
            _msg = TextBoxMessage.Text.ToString().Trim()

            _MMsg = New Net.Mail.MailMessage("[email protected]", _tmail.ToString())

            With _MMsg
                .Subject = _sub
                .Body = _msg
                .IsBodyHtml = False
                .Priority = MailPriority.High
            End With

            _EServer = New Net.Mail.SmtpClient("smtp.gmail.com", "587")
            _EServer.EnableSsl = True
            _Cred = New Net.NetworkCredential("gmailuraccountid", "gmailaccountpassword")
            _EServer.Credentials = _Cred
            _EServer.Send(_MMsg)

            MessageBox.Show("Mail Send Successfully ...", "Mail Sender", MessageBoxButtons.OK, MessageBoxIcon.Information)
            TimerImage.Enabled = False : _i = 0
            _MMsg.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Mail Sender", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TimerImage.Enabled = False : _i = 0
            _MMsg.Dispose()
        End Try

    End Sub

    Private Sub TimerImage_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerImage.Tick

        TimerImage.Interval = 500
        If _i = 0 Then
            _img.RotateFlip(RotateFlipType.Rotate180FlipY)
            _i = 1
        Else
            _img.RotateFlip(RotateFlipType.Rotate90FlipY)
            _i = 0
        End If

        PictureBoxRotate.Image = _img

    End Sub

    Public Shared Function IsValidEMailAddress(ByVal emailAddress As String) As Boolean
        Return Regex.IsMatch(emailAddress, "^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$")
    End Function

End Class